home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / text.e < prev    next >
Encoding:
Text File  |  2004-08-03  |  2.3 KB  |  70 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF app,win
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       app := AppObject,
  10.          Child, win := WindowObject,
  11.             FA_Window_Title, 'Feelin : Text',
  12.             FA_Window_Open,   TRUE,
  13.  
  14.             Child, HGroup,
  15.                Child, TextObject, FA_ChainToCycle,    FALSE,
  16.                                   FA_MinWidth,        30,
  17.                                   FA_SetMin,          FV_SetMinH,
  18.                                   FA_Text,            {__Text},
  19.                                   FA_Text_VCenter,          TRUE,
  20. ->                                  FA_Font,            'Garnet/16',
  21.                                   End,
  22.             End,
  23.          End,
  24.       End
  25.  
  26.       IF app
  27.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE,app,FM_Application_Shutdown,0])
  28.          F_DoA(app,FM_Application_Run,NIL)
  29.          F_DisposeObj(app)
  30.       ENDIF
  31.  
  32.       CloseLibrary(feelinbase)
  33.    ELSE
  34.       WriteF('Unable to open feelin.library\n')
  35.    ENDIF
  36. ENDPROC
  37.  
  38. __Text:
  39.    CHAR '<align="center"><spacing=5>Normal text\n',
  40.         '<pens text=8>Highlighted text</pens>\n',
  41.         '<pens shadow="dark">',
  42.         '<font color="#FF0000" face=Diamond size=12>C',
  43.         '<font color="#FF9000">o</font>',
  44.         '<font color="#D9FF00">l</font>',
  45.         '<font color="#48FF00">o</font>',
  46.         '<font color="#00FF48">r</font>',
  47.         '<font color="#00FFD9">e</font>',
  48.         '<font color="#0090FF">d</font> ',
  49.         '<font color="#0000FF">!</font></font></pens><br>',
  50.         '<font face="Helvetica" size=9>M</font>',
  51.         '<font face="Helvetica" size=11>u</font>',
  52.         '<font face="Helvetica" size=13>l</font>',
  53.         '<font face="Helvetica" size=15>t</font>',
  54.         '<font face="Helvetica" size=18>i</font>',
  55.         '<font face="Diamond" size=20>p</font>',
  56.         '<font face="Garnet" size=16>l</font>',
  57.         '<font face="Opal" size=12>e</font>',
  58.         '<hr width=50px size=3 shadow="halfshadow" shine="halfshine">',
  59.  
  60.         '<pens style="emboss">Embossed text</pens>, <pens style="ghost">Ghost text</pens>\n',
  61.         '<pens style="light">Some Light</pens>, <pens style="shadow">Some Shadow</pens>\n',
  62.         '<pens style="glow">Glowing</pens>\n',
  63.         '<pens up=1 shadow=4>Emboss & Shadow</pens><br>',
  64.  
  65.         '<i>Italic</i>, <b>Bold</b>, <u>Underlined</u>, Normal, <i><b><u>Mixed</u></b></i><hr>',
  66.         '<align=left>A very, very, very long line that will be nicely truncated\n',
  67.         '<align=center>A very, very, very long line that will be nicely truncated\n',
  68.         '<align=right>A very, very, very long line that will be nicely truncated',
  69.         NIL
  70.